﻿Imports DotNetNuke
Imports DotNetNuke.Services.Exceptions
Imports DotNetNuke.Common.Utilities

Imports DotNetNuke.Entities.Profile

Imports DotNetNuke.Services.Localization

Namespace effority.WF_HTML

    Partial Class Settings
        Inherits Entities.Modules.ModuleSettingsBase

#Region " Overrided Methods "

        Public Overrides Sub LoadSettings()

            Try

                If Not Settings(Consts.DISABLE_DATE) Is Nothing Then

                    cbDisableDate.Checked = CBool(Settings(Consts.DISABLE_DATE))

                End If

            Catch exc As Exception    'Module failed to load

                ProcessModuleLoadException(Me, exc)

            End Try

        End Sub

        Public Overrides Sub UpdateSettings()

            Try

                Dim objModules As New Entities.Modules.ModuleController

                objModules.UpdateModuleSetting(ModuleId, Consts.DISABLE_DATE, CStr(cbDisableDate.Checked))

            Catch exc As Exception

                ProcessModuleLoadException(Me, exc)

            End Try

        End Sub

#End Region

    End Class

End Namespace